home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / PipeMan - 263389122001.psc / modCommon.bas < prev    next >
Encoding:
BASIC Source File  |  2001-09-09  |  1.1 KB  |  19 lines
  1. Attribute VB_Name = "modCommon"
  2. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal Operation As String, ByVal Filename As String, ByVal Parameters As String, ByVal Directory As String, ByVal ShowCommand As Long) As Long
  3.  
  4. Public Const SEShowNormal = 1      'Open with the default state
  5. Public Const SEShowMinimized = 2   'Minimizes the window and activates another window
  6. Public Const SEShowMaximized = 3   'Maximizes the window and retrieves focus
  7. Public Const SEShowNoActivate = 4  'Does not activate the window
  8. Public Const SEShow = 5            'Activates the window
  9. Public Const SEMinimize = 6        'Minimizes the window
  10. Public Const SEShowMinNoActive = 7 'Display window as minimized without activation
  11. Public Const SEShowNA = 8          'Do not modify the windows state
  12. Public Const SERestore = 9         'Restores the window and retrieves fouces
  13. Public Const SEShowDefault = 10    'Complex command, look up in MSDN
  14.  
  15. 'Navigate to a specific URL
  16. Sub Navigate(URL As String, Optional Flags As Long = 1)
  17.   ShellExecute 0&, "", URL, "", "", Flags 'Execute the command
  18. End Sub
  19.